home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / graphics / turtle_2 / Procedures / GOLF < prev    next >
Encoding:
Text File  |  1991-08-04  |  2.4 KB  |  197 lines
  1. FLAG
  2. PEN DOWN
  3. COLOUR 1
  4. CIRCLE 5
  5. FORWARD 20
  6. COLOUR 3
  7. FILL
  8. REPEAT 4
  9. RIGHT 120
  10. FORWARD 8
  11. END REPEAT
  12. END
  13.  
  14. GOLF
  15. DISPLAY
  16. GOLF1
  17. GOLF2
  18. OSCLI SCREENLOAD PICNORTH
  19. DISPLAY
  20. END
  21.  
  22. GOLF1
  23. CLEAR
  24. PEN UP
  25. RIGHT 80
  26. FORWARD 120
  27. BEARING 0
  28. PEN DOWN
  29. CURSOR RIGHT 8
  30. WRITE 2
  31. CURSOR RIGHT -8
  32. FLAG
  33. PEN UP
  34. HOME CURSOR
  35. LEFT 25
  36. FORWARD 65
  37. BEARING 0
  38. PEN DOWN
  39. CURSOR RIGHT 8
  40. WRITE 7
  41. CURSOR RIGHT -8
  42. FLAG
  43. PEN UP
  44. HOME CURSOR
  45. RIGHT 120
  46. FORWARD 140
  47. BEARING 0
  48. PEN DOWN
  49. CURSOR RIGHT 8
  50. WRITE 3
  51. CURSOR RIGHT -8
  52. FLAG
  53. PEN UP
  54. HOME CURSOR
  55. RIGHT 30
  56. FORWARD 70
  57. BEARING 0
  58. PEN DOWN
  59. CURSOR RIGHT 8
  60. WRITE 1
  61. CURSOR RIGHT -8
  62. FLAG
  63. PEN UP
  64. HOME CURSOR
  65. END
  66.  
  67. GOLF2
  68. LEFT 160
  69. FORWARD 90
  70. BEARING 0
  71. PEN DOWN
  72. CURSOR RIGHT 8
  73. WRITE 4
  74. CURSOR RIGHT -8
  75. FLAG
  76. PEN UP
  77. HOME CURSOR
  78. LEFT 95
  79. FORWARD 110
  80. BEARING 0
  81. PEN DOWN
  82. CURSOR RIGHT 8
  83. WRITE 5
  84. CURSOR RIGHT -8
  85. FLAG
  86. PEN UP
  87. HOME CURSOR
  88. LEFT 60
  89. FORWARD 125
  90. BEARING 0
  91. PEN DOWN
  92. CURSOR RIGHT 8
  93. WRITE 6
  94. CURSOR RIGHT -8
  95. FLAG
  96. PEN UP
  97. HOME CURSOR
  98. PEN DOWN
  99. COLOUR 5
  100. CURSOR RIGHT 8
  101. WRITE TEE
  102. CURSOR RIGHT -8
  103. CIRCLE 5
  104. COLOUR 4
  105. END
  106.  
  107. TEE
  108. PU
  109. HM
  110. PD
  111. END
  112.  
  113.  
  114. INFO
  115. CLEAR
  116. DISPLAY
  117. COLOUR 3 
  118. PEN UP
  119. LEFT 90
  120. FORWARD 100
  121. RIGHT 90
  122. FORWARD 70
  123. WRITE GOLF
  124. BACKWARDS 15
  125. WRITE Try to get the ball (the turtle!) into each
  126. BACKWARDS 10
  127. WRITE hole, using the commands BE and FD only.
  128. BK 15
  129. WRITE BE followed by a number sets the BEARING (measured
  130. BACKWARDS 10
  131. WRITE clockwise from North, which is at the top of the
  132. MORE1
  133. END
  134.  
  135. MORE1
  136. BACKWARDS 10
  137. WRITE screen).
  138. BACKWARDS 15
  139. WRITE Type TEE <return> to start a new shot.
  140. BACKWARDS 15
  141. WRITE UNDO can be used to delete any errors.
  142. BACKWARDS 15
  143. WRITE Keep a clear record of all your movements.
  144. BACKWARDS 20
  145. WRITE To begin type GOLF <return>.
  146. BACKWARDS 20
  147. WRITE Type IDEAS <return> for more ideas. 
  148. BACKWARDS 20
  149. DISPLAY 
  150. END
  151.  
  152.  
  153. IDEAS
  154. CLEAR
  155. DISPLAY
  156. COLOUR 6
  157. PEN UP
  158. LEFT 90
  159. FORWARD 100
  160. RIGHT 90
  161. FORWARD 70
  162. WRITE IDEAS
  163. BACKWARDS 20
  164. WRITE Write down the bearing and distance needed to
  165. BACKWARDS 10
  166. WRITE hit the ball from each hole back to the tee.
  167. BACKWARDS 20
  168. WRITE Instead of starting from the tee each time,
  169. BACKWARDS 10
  170. WRITE move from hole to hole, 1 to 2 to 3 etc.
  171. BACKWARDS 20
  172. MORE2
  173. END
  174.  
  175.  
  176.  
  177. MORE2
  178. WRITE Play from hole to hole backwards, 7 to 6 to 5 etc.
  179. BACKWARDS 10
  180. WRITE Could you write down the instructions for these
  181. BACKWARDS 10
  182. WRITE shots BEFORE you do them if you have
  183. BACKWARDS 10
  184. WRITE already played the 'correct' way?
  185. BACKWARDS 20
  186. WRITE Create a golf course of your own.
  187. BACKWARDS 10
  188. MORE3
  189. END
  190.  
  191. MORE3
  192. WRITE You could draw greens, fairways, bunkers, ...
  193. BACKWARDS 20
  194. DISPLAY
  195. CO 3
  196. END
  197.